sub fastcall mc1000screen(tmsm as ubyte):
  asm
    out($80),a
    ld($00F5),a
    end asm
  end sub

